From: Eli Zaretskii <eliz@gnu.org>
Date: Sun, 2 May 2004 15:36:45 +0000 (+0000)
Subject: (compilation-start): In the no-async-subprocesses branch, call
X-Git-Tag: archive/raspbian/1%29.2+1-2+rpi1~1^2~22770
X-Git-Url: https://dgit.raspbian.org/%22http:/www.example.com/cgi/%22https:/www.github.com/%22bookmarks:///%22http:/www.example.com/cgi/%22https:/www.github.com/%22bookmarks:/?a=commitdiff_plain;h=1d6ea13a8ddadd8a1de6d386ccc3e58624bbc6ab;p=emacs.git

(compilation-start): In the no-async-subprocesses branch, call
sit-for to give redisplay a chance to show the updated process
status in the mode line.
---

diff --git a/lisp/progmodes/compile.el b/lisp/progmodes/compile.el
index d31a93311b5..376136e33ae 100644
--- a/lisp/progmodes/compile.el
+++ b/lisp/progmodes/compile.el
@@ -944,6 +944,7 @@ Returns the compilation buffer created."
 	;; Fake modeline display as if `start-process' were run.
 	(setq mode-line-process ":run")
 	(force-mode-line-update)
+	(sit-for 0)			; Force redisplay
 	(let ((status (call-process shell-file-name nil outbuf nil "-c"
 				    command)))
 	  (cond ((numberp status)